<HTML><HEAD><META CONTENT="text/html; charset=ISO-8859-1" HTTP-EQUIV="Content-Type" />
<TITLE>Delphi CodeCoverage Coverage Report</TITLE>
    <STYLE TYPE="text/css"> TABLE, TD, TH {border-style: solid;border-color: black;}
TD, TH { background: white; margin: 0; line-height: 100%; padding-left: 0.5em; padding-right: 0.5em;}
TD { border-width: 0 1px 0 0;} TH { border-width: 1px 1px 1px 0; }
P, H1, H2, H3, TH { font-family: verdana,arial,sans-serif; font-size: 10pt;}
TD { font-family: courier,monospace; font-size: 10pt;}
TABLE.s TD {padding-left: 0.25em; padding-right: 0.25em; }
TABLE.s TR.notcovered TD { background: #DDDDFF; }
TABLE.s TR.nocodegen TD { background: #FFFFEE; }
TABLE.s TR.covered TD { background: #CCFFCC; }
TABLE.s {border-width: 1px 0 1px 1px; }
    </STYLE></HEAD>
<BODY>
<P> Coverage report for <STRONG>thundax.AbstractFactory (..\..\src\Design Patterns\AbstractFactory\thundax.AbstractFactory.pas)</STRONG>.</P>
<P> Generated at 11/06/2013 21:04:41 by <a href="http://code.google.com/p/delphi-code-coverage/" title="Code Coverage for Delphi 5+" />DelphiCodeCoverage</a> - an open source tool for Delphi Code Coverage.</P>
<P> Statistics for ..\..\src\Design Patterns\AbstractFactory\thundax.AbstractFactory.pas </P>
<TABLE CLASS="s" CELLSPACING="0">
  <TR>
    <TD>Number of lines covered</TD>
    <TD ALIGN="RIGHT">32</TD>
  </TR>
  <TR>
    <TD>Number of lines with code gen</TD>
    <TD ALIGN="RIGHT">46</TD>
  </TR>
  <TR>
    <TD>Line coverage in <i>percent</i></TD>
    <TD ALIGN="RIGHT">69%</TD>
  </TR>
</TABLE>
<BR><BR>
   <TABLE CLASS="s" WIDTH="100%" CELLSPACING="0">
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">1</TD>
    <TD><PRE STYLE="display: inline">unit thundax.AbstractFactory;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">2</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">3</TD>
    <TD><PRE STYLE="display: inline">interface</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">4</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">5</TD>
    <TD><PRE STYLE="display: inline">type</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">6</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;IAbstractVehicle = interface</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">7</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;procedure Run();</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">8</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function ToString() : string;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">9</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">10</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">11</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;TCar = class(TInterfacedObject, IAbstractVehicle)</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">12</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;procedure Run();</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">13</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function ToString() : string; override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">14</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">15</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">16</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;TTruck = class(TInterfacedObject, IAbstractVehicle)</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">17</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;procedure Run();</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">18</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function ToString() : string; override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">19</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">20</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">21</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;TBus = class(TInterfacedObject, IAbstractVehicle)</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">22</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;procedure Run();</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">23</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function ToString() : string; override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">24</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">25</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">26</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;TVan = class(TInterfacedObject, IAbstractVehicle)</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">27</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;procedure Run();</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">28</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function ToString() : string; override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">29</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">30</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">31</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;TAbstractFactory = class(TObject)</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">32</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;constructor Create();</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">33</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;destructor Destroy(); override;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">34</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function CreateCar() : IAbstractVehicle; virtual; abstract;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">35</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function CreateTruck() : IAbstractVehicle; virtual; abstract;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">36</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function CreateBus() : IAbstractVehicle; virtual; abstract;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">37</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function CreateVan() : IAbstractVehicle; virtual; abstract;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">38</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">39</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">40</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;TVehicleFactory = class(TAbstractFactory)</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">41</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;constructor Create();</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">42</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;destructor Destroy(); override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">43</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function CreateCar() : IAbstractVehicle; override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">44</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function CreateTruck() : IAbstractVehicle; override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">45</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function CreateBus() : IAbstractVehicle; override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">46</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;&nbsp;&nbsp;function CreateVan() : IAbstractVehicle; override;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">47</TD>
    <TD><PRE STYLE="display: inline"> &nbsp;end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">48</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">49</TD>
    <TD><PRE STYLE="display: inline">implementation</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">50</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">51</TD>
    <TD><PRE STYLE="display: inline">{ TCar }</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">52</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">53</TD>
    <TD><PRE STYLE="display: inline">procedure TCar.Run;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">54</TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">55</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">56</TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">57</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">58</TD>
    <TD><PRE STYLE="display: inline">function TCar.ToString: string;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>59</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>60</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;result := &apos;Car&apos;;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>61</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">62</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">63</TD>
    <TD><PRE STYLE="display: inline">{ TTruck }</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">64</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">65</TD>
    <TD><PRE STYLE="display: inline">procedure TTruck.Run;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">66</TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">67</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">68</TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">69</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">70</TD>
    <TD><PRE STYLE="display: inline">function TTruck.ToString: string;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>71</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>72</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;result := &apos;Truck&apos;;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>73</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">74</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">75</TD>
    <TD><PRE STYLE="display: inline">{ TBus }</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">76</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">77</TD>
    <TD><PRE STYLE="display: inline">procedure TBus.Run;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">78</TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">79</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">80</TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">81</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">82</TD>
    <TD><PRE STYLE="display: inline">function TBus.ToString: string;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>83</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>84</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;result := &apos;Bus&apos;;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>85</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">86</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">87</TD>
    <TD><PRE STYLE="display: inline">{ TVan }</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">88</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">89</TD>
    <TD><PRE STYLE="display: inline">procedure TVan.Run;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">90</TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">91</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">92</TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">93</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">94</TD>
    <TD><PRE STYLE="display: inline">function TVan.ToString: string;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>95</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>96</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;result := &apos;Van&apos;;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>97</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">98</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">99</TD>
    <TD><PRE STYLE="display: inline">{ TAbstractFactory }</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">100</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">101</TD>
    <TD><PRE STYLE="display: inline">constructor TAbstractFactory.Create;</PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">102</TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">103</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="notcovered">
    <TD ALIGN="RIGHT" CLASS="1">104</TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">105</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">106</TD>
    <TD><PRE STYLE="display: inline">destructor TAbstractFactory.Destroy;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>107</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">108</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>109</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;inherited;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>110</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">111</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">112</TD>
    <TD><PRE STYLE="display: inline">{ TVehicleFactory }</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">113</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">114</TD>
    <TD><PRE STYLE="display: inline">constructor TVehicleFactory.Create;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>115</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">116</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>117</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">118</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">119</TD>
    <TD><PRE STYLE="display: inline">function TVehicleFactory.CreateBus: IAbstractVehicle;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>120</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>121</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;result := TBus.Create;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>122</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">123</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">124</TD>
    <TD><PRE STYLE="display: inline">function TVehicleFactory.CreateCar: IAbstractVehicle;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>125</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>126</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;result := TCar.Create;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>127</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">128</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">129</TD>
    <TD><PRE STYLE="display: inline">function TVehicleFactory.CreateTruck: IAbstractVehicle;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>130</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>131</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;result := TTruck.Create;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>132</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">133</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">134</TD>
    <TD><PRE STYLE="display: inline">function TVehicleFactory.CreateVan: IAbstractVehicle;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>135</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>136</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;result := TVan.Create;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>137</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">138</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">139</TD>
    <TD><PRE STYLE="display: inline">destructor TVehicleFactory.Destroy;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>140</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">begin</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">141</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>142</STRONG></font></TD>
    <TD><PRE STYLE="display: inline"> &nbsp;inherited;</PRE></TD>
  </TR>
  <TR CLASS="covered">
    <TD ALIGN="RIGHT" CLASS="1"><font color="green"><STRONG>143</STRONG></font></TD>
    <TD><PRE STYLE="display: inline">end;</PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">144</TD>
    <TD><PRE STYLE="display: inline"></PRE></TD>
  </TR>
  <TR CLASS="nocodegen">
    <TD ALIGN="RIGHT" CLASS="1">145</TD>
    <TD><PRE STYLE="display: inline">end.</PRE></TD>
  </TR>
</TABLE>
</BODY></HTML>
